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NMLSINISTA NML Initial parsi tate tab 16-5S 44:49 yA - 
vOe-000 eS eee od B7SEb=1986 09:39:39 LAM SRCTAML NYStacHAR;1 Page 


-TITLE NM ML SIRASTA NML Initial parsing state table 
- IDENT 


SERRA EAE REAR RAAEAEAAAAAEAEARERAAEAAAEAEAAAAAAAAAEAERERE EERE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION,” MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
® 
* 
® 
s 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF HE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. “ 
® 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. * 
* 

® 

me 

® 

® 

* 


DIGITAL ASSUMES NO RESPONS . 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH 


FOR THE USE OR _ RELIABILITY OF ITS 


LITY 
S NOT SUPPLIED BY DIGITAL. 


* @e ee eeneeeneneeennnnnnen 


LARA RAAAASAASAAALSALALALLSALSE SESE SEAS ESE SER EEE EERE REECE SEER CESSES SECS ESOS 


SOOQOOCOOCOoCOoOOoOoOCOCOCOCOSoOSoOoSoOCOOooOoCOoOoOSooSo 
COOoCQoooosDOooooooooooooooooooo 


* FACILITY: DECnet-VAX Network Management Lis‘ener 


; ABSTRACT: 


This module contains the NPARSE state tables for handling the 
initial processing of all NICE command messages. 


; ENVIRONMENT: VAX/VMS Operating System 

: AUTHOR: Distributed Systems Software Engineering 

: CREATION DATE: 8-Sep-1979 

> MODIFIED BY: 

3 v03-011 MKP0013 Kathy Perko 21-Mar-1984 

3 Fix hag of node number to change area 0 to 
3 for Phase IV 


area 1 
NCPs and to change area 0 to the exec r. area 
for Phase III NCPs. This to fix the area 1 probem. 


v03-010 MKP001 Kathy Perko 66-Jan-1984 
Add X25-Access Module entity. 
V03-009 MKP0011 Kaphy Perko 20-April-1983 
Add support to cate OM if I get a system specific down 


Line load command. 
v03-008 mKP0010 Kathy Perko 17-Jan-1983 


COOOGOCOCOOO COO OOO OOS OSSSOSCCSSOOCSOOSGOSOCOOOOOOOCCOOOOOOOOOOOOO 
NAME WN SO OOO NAME WN SO OO NAME WIN (OO DNAUS WN 0 OONAU SW OWONOULS Wr 


SOOCOCSOOOOSOOOSOOSOSOSOOSOSOSOSOOOSOSOSOOSOSOSOOOOCOOOOCOOOOOOOOOOCOO: 


SOooooooooCcoooooooooooooooooooo 
PVPS BS BS BS EE ENN NII NINA POPONPONIPUPINY PY 2 2 PO OS OO Oo 


SOOooooooooooooooooooooooooooooo 


andl 
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yos~000 ee mS a ee i a kl ef, 


Add support for NI CONFIGURATOR module. 


MKP0009 Kathy Perko 12-Nov-1982 
Allow CIRCUIT qualifier on any SHOW NODE command. 


V03-006 MKP0008 Kathy Perko 7-Nov-1982 
Add area entity. 


v03-005 MKP0007 Kathy Perko 1-0¢t-1982 
Add = ADJACENT NODES and SHOW CIRCUIT ADJACENT NOPE 
parsing. 


V03-004 MKP0006 Kathy Perko 20-Sept-1982 
Fix node parsing so that the internal entity ID for 
NML is properly set up. 


v03-003 mKP000S Kathy Perko S-Sept-1982 
For errors in X25-Protocol qualifiers, return 
detail = module instead of the qualitier parameter ID. 
The architecture needs to be changed to make this better. 


v03-002 MKP0004 carne Perko 17-June-1982 
Fix parsing for X25-Protocol networks to default 
to using null —— as entity id - indicates the 
currently active network. 
Add SHOW/LIST GROUP parsing for DTE qualifier. 
Add X29 Server and Trace modules. 


v03-001 MKP0003 Rethy Perko 16-June-198 
Add parsing for qualifiers, and clean up X25-PROTOCOL 
Module parsing. 


v02-002 mKP0002 Kathy Perko 14-Nov-1981 
Fix circuit id parsing so same checks are made as 
for Line id parsing. 


V02-001 MKP0001 Kathy Perko 19-July-1981 
Add Circuit and Module entities. 


v03-007 


poe iolo) 
Oooo 
pojololo) 
Oooo 


pola lao le leleoleloleolaleloleolololeo) 


ww 
NAUSEA SO OD NAN E WW OS OD NAME WN OOONOU SWI OOW 


See Se Se Se Ge Se Se Se Ge Be Se Ge Ge Be Be Se Se Ge Se Se Se Se Ge Se Ge Se See Se Se Se Se Se Se Se Se Se Sete 


DOOOCOCOOOSOOSOSOOSOOSOOSOO OOOO OOOOOOOOCOO: 
WOOO O00 O+0 00000909 09 09 00 09 09 09 SIN NIN INI NINN IO AAA AAA AAO 


SoOoOoOoooooooooooooscSe 


CoOoooooocooooo 
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9 VAX/VMS Macro v04-00 Page 3 
Declarations SE 9 (2) 


NML.SRCINMLINISTA.MAR; 1 


000 190 f -SBTTL Declarations 
6 o i ; INCLUDE FILES: 
1 e 

5 5 104 $NMADEF ; Network Management Layer symbols 
i ! ; SNMLDEF ; Network Management Listener definitions 
0 107 ; 

8 103 3; MACROS: 

0 109 ; 

000 11 : 
9900 118 ; EQUATED SYMBOLS: 
8 8 113; 

000 118; 
6009 116 > OWN STORAGE: 
0000 117; 


D 15 ! a 
NMLSINISTA NML_ I l parsing state table “SEP=1984 00:44:49 YVAX/Vis Macro v04-00 Pp 4 | NM 
VO%~000 NMLSN irPs NICE Phase II1 message ~~, “SEP-1984 63; :25:29 UNL SRCINMLINISTA.MAR; 1 en (3). Sy! 


é -SBTTL NMLSNPA_INIT = NICE Phase III message parse tables 
: Phase III parse tables 

J IMSGS NMLSNPA_INIT 

; Get the function code 


COCO OCOOOOOOOOOOOO -—. 


FIELDS | 
SBYTE MASC_FNC_CHA,NML_CHA,NMLSPRSFNC ; Change 
BYTE NMASCTENC™ REA,NML_REA,NMLSPRSFNC ; Read 
SBYTE NMASC_FNC_ZER,NML_ZER,NMLSPRSFNC ; Zero 
BYTE NMASC-FNC-TES.NML_TES.NMLSPRSFNC : Test 
SBYTE NMASC_FNC_LOA,NML_LOA,NMLSPRSFNC ; _ 

0 SBYTE wry -FNC_DUM,NML_DUM,NMLSPRSFNC ; Dum 

0 SBYTE NMASCFNC_TRI,NML_TRI,NMLSPRSFNC ; Trigger 

0 S$BYTE NMASC FNC_SYS,NML_SYS 3; System-specific function 

SNULL ,NML_FUN_ERR ; Unrecognized function 

9 : Down-Line load 

0 ’ FIELDS NML_LOA 

SSBEXP NML_CHKOPT_SUB,NPAS_EXIT ; Parse the option byte 

0 : Up-Line dump 


FIELDS NML_DUM 
$SBEXP NML~CHKOPT_SUB,NPAS$_EXIT 


Trigger bootstrap 


FIELDS NML_TRI 
SSBEXP NML_CHKOPT_SUB,NPAS_EXiT 


Send test message 


FIELDS NML_TES 
SSBEXP NML_CHKOPT_SUB,NPAS_EXIT ; Parse the option byte 


Parse the option byte 


SOOOOCoOOSOSOOOoOSoOOoOSCOSOSOSOSOOCOOoOO 
OQQOCOCCOOCOCCOOCCOOOOOOOCOOOO 


DOOCOOSOOOOSOOOOOOOOSOOOOOOOOOOOOOOOOOOOOOCO (U3 


OOOOOCOOCOCOCOOCOOCOOOoOoOSoOSCOSoSoS 


SSSssssssssssssss 
Ssssss 


oo 


Change parameter 


FIELDS NML_CHA ; Check change parameter option 
Pieths NML~CHKOPT_SUB ; Parse the option byte 
SSBEXP NML_CHKENT_SUB,NPAS_EXIT ; Parse entity id 


Read information 


Parse the option byte 


ooo 
SSsssssss 


a a a a a a dd dd a a 8 

SSAA AAA AAA AA MAMI BS BS BS BB WII onononononononnd | 

AP AR OOD NAN EWN SO ONAN EWN OC OOO NAN EWN OC OD NOAA EWI -2 OOD NOAOUSWIO0 
s 


FIELDS NML_REA ; Check read information option 

Prir es NMAL_CHKOPT_SUB ; Parse the option byte 

Piirae NML_CHK_INFO_SUB ; Check information type 
SSBEXP NML_CHKENT_SUB,NPAS_EXIT ; Parse entity id 


Be 55555555 555555555 SS5555SSSSSSES5 


oa Nig NML al par 


i 
INIT 


WAM IPIPINITPUNININININD 2 9 9 OO | “DOO OOODOCOCOCOOOOOOOO OO OWMMMccccroDce VN 
MR OODNA NEU OOD NA UE WIN SO OO NIA U1 LP CO OO NOUN EWP 0 DOONAN EW OO OONO 


POP IPIPOPIPOPOPOPIPOPOPONONONIPOPOPIPOPINIPONIPIPIPIPOPUNININININ) 


si 
NI 


state tabl 
Phase 


: Zero counters 


SEXTZV 


SEXTZV 


SNULL 


F System-specific functions 


FIELDS 
SEOM 


FIELDS 
SSBEXP 
FIELDS 
$s 


E 
BEXP WNML_CHK_VMS_ENT_SUB,NPAS_EXIT ; Parse entit 


E 15 
table 197 3be- 138% 90:36:68 
III message pa 5-SEP-1984 02:25:29 


NML_ZER 
NML~CHKOPT_SUB 
<NMASC_ENT_NOD, 


NMASV_OPT_ENT, 
NMA$S_OPT"ENT 


“OPT_ENT, 
NMAS$S OPT ENT, 
NPA$_ADVANCE>, 
»NML_FUN_ERR 


NML_SYS 
»NMC_FOR 


ERR 3; Mes 
NMASCT_SYS VMS ,,NML_VMS,,NMLSM_PRS_VMS ,NML$GL_PRS_FLGS 


»NML_SYS_ERR 


NML_VMS 
NMC FO 


R_ERR ; Message 
NMASC_FNC_CHA,NML_VMS_CHA,NMLSPRSFNC ; thange 
NMASC_FNC_REA,NML_VMS_REA 


| 
| 
| 
| 
* NML_LIN_ENT,NMLSPRSENT 


AX/VMS Macro V 


04-00 P | 
NML.SRCINMLINISTA.MAR; 1 sto 3) 


; Check zero counters option 
; Parse the option oxte 
; Parse the entity I 

¥ ; Node 


E>, NML_NOD_ENT,NMLSPRSENT 
=_ . e 


3; Lin 


; Circuit 


- NML_CIRCUIT_ENT ,NMLSPRSENT 
= ule 


NML_MODULE_ENT ,NMLSPRSENT 
; Unrecognized option 


: System-specific function 
sage format error a 


7 Only VMS Ts valid 


3; VMS-specific function 
format error 


»NMLSPRSFNC ; Read 


NMASC EFNC ELOA,NPAS_EXIT .NALSPRSFNC ; Load 


»NML_FUN_ER 


NML_VMS_CHA 
NML~CHKOPT_SUB 


NML_VMS_REA 
NML-CHKOPT_SUB 


NML_CHK_INFO_SUB 
NML_CHK_VMS_ENT_ 


a 
; Unrecognized function 


> Change parameter for VMS specific function 


; Check change parameter option 
; Parse the option byte 


id for VMS 
: specific 


Read information for VMS specific function 


3; Check read information option 
; Parse the option byte 


3; Check information type 


SUB,NPAS_EXIT ; Parse entity id for VMS 
: specific 


pe 
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4 ; 
6 5 ; Parse information type subexpression 
$ FIELDS NML sce INFO_SUB ; Match the information type 
3 SEXTZV <Wak s-Ophiapons ; Summary 
40 NMAge- “OPT- INF = 

0 4) > NPAS_ EXIT, shape re 

88 tg SEXTZV <NMASC_OPINF STA, Status 

0 4 NMASV_OPT_IRF, 

00 44 NMASS— “OPT~ INF = 

Bae 45 >, NPAS_EXIT,NMLSPRSINF 

*8 SEXTZV <NMASC_OPINF CHA, ~ ; Characteristics 

464 G NMASV “OPT T_INF, 
000 48 NMASS— “OPT~ INF = 
0000 49 > »NPAS_ EXIT, NMLSPRSINF 
0000 50 SEXTZV <NMASC_OPINF cou, = ; Counters 

000 51 NMASV_OPT_IRF, 

000 28 NMASS | ~OPT— INF - 

000 5 > .NPAS EXIT, .NMLSPRS INF 
444 54 SEXTZV <NMASC_OPINF EVE, = ; Events 

000 55 NMASV_OPT_INAF, 
0000 2$ NMASS_OPT_INF = 
0000 5 >, NPAS_EXIT ,NMLSPRS INF 
444 $26 SNULL ,NML_FUN_ERR ; Unrecognized option 


wy SARASTA 


SOoOoOQOOCOOCOOOSoOoOSoOOoOoOSoOO 


SoOSooooOooooooooooo 


GOOOCOCOSOSSCOCOOCOOCOCOOOSoOOSooOoOoO: 


Soooooo 


s 


S DOOOOCOSOOOSOOOOOOOOOOOoOO 
SSssssssss S S 


NML Initial parsing state table 
Entity parsing 


16-SEP-19 
$2138 
f ' -SBTTL Entity parsing 
64 ; 
65 FIELDS NML_CHKENT_SUB 
66 SEXTZV <NMASC_ENT_NOD, = 
6 NMASV_OPT_ENT, = 
98 NMA$S_OPT ENT. 
53 SEXTZV <NMASC_ENT_LIN, 
71 NMASV_OPT_ENT, = 
ie NMASS_OPT_ENT, 
74 SEXTZV <NMASC_ENT_LOG, 
75 MASV_OPT_ENT, 
4 NMASS_OPT-ENT, 
4 SEXTZV <NMAST_ENT_CIR, 
NMASV_OPT_ENT, = 
NMASS_OPT ENT, 
¢ SEXTZV <NMASC_ENT_MOD, 
NMASV_OPT_ENT, = 
: WAASS OPT" ENT, 
6 SEXTZV <NMAST_ENT_ARE, 
7 NMASV_OPT_ENT, = 
3 NMASS_OPT_ENT, 
9 SNULL ,NML_FUN_ERR 


: Parse VMS specific entities. 


ms 


WAASS OFT LENT. 

SEXTZV <NMAST_SENT_LNK, 
NMASV_OPT_ENT, = 
NMASS_ OPT 


SNULL ,NML_FUN_ERR 


: Parse 


ELDS NML_NOD_ENT 
NAC _FOR ERR 


2 4 § *QOODOODOOCOO COO OO0O0O000 OCBMBMMmcacmocca~ 


NOMEN OOD NONE WI  O ODO 


AX/VMS Macr 
NML.SRCINMLIN 


o V04-00 Page 
ISTA.MAR; 1 


5 Parse the entity for a non VMS specific command, according to the option byte 


3; Node 


NPAS_ADVANCE>, a on ee 
bad : ne 


at ROVARCE>, NML_LIN_EN’ ,NMLSPRSENT 


3; Logging 


NPAS_ADVARCE>, NML_LOG_ENT,NMLSPRSENT 


; Circuit 


NPAS_ADVARCE>, NML_CIRCUIT_ENT ,NMLSPRSENT 
* ; Module 


PAS_ADVARCE>, NML_MODULE_ENT,NMLSPRSENT 


3; Area 


NPAS_ADVARCE>, NML_AREA_ENT,NMLSPRSENT 


; Unrecognized function 


:; Object 


RDVARCE>: NAL _OBJ _ENT .NALSPRSENT 
- 5 n 


ENT, - 
NPAS_ADVARCE>, NML_LNK_ENT,NMLSPRSENT 


; Unrecognized option 


3; Node-id entit 

; Message format error 

: 3 bytes if node number 
ENTITY 

Wm SPRSIOLER, ° 

SPRSIDLEQ, - 


2 
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> 


NML$C_NODE ,NMLSGL_NML_ENTITY 

SBYTE NMASC_ENT ADJ>NML NODE CIRC” GOAL NMLSPRSIDLEQ, - 
NALSC_ADJACENT-NODE;NMLSGL_NML_ENTITY 

SIMAGE 6, NAL NODE IRC QUAL NAL SPRSNODNAM NAL SC_NODEBYNAME -; n bytes (nam 

SERROR NHLS_STS IDE. -AMLSPRSIDERR, , .NMASC_ENT_NOD ; Illegal node name 


FIELDS NML_NOD_NUM 

SSBEXP NML-NOD"EXE ,NPAS_EXIT,NMLSPRSID 

SMATCH 3,NAL_NODE CIRC_QUAL, - 

NMCSPRS"NODE_NUM_ENTITY, 
NMLSC_NODE ,NALSGC_NML_ENTITY 

SNULL ,NML_FOR_ERR ; Must be at least 2 bytes 


FIELDS WAL NOD EXE ; Zero address is executor node 


3; Node-id number 
; Skip 2 bytes (node number) 


O,NPAS_EXIT, .NMLSC_EXECUTOR 


; Executor node 
NMCSGL_NML 


entity 


> Parse a circuit qualifier (for SHOW NODECS] CIRC <circuit id>) 


FIELDS NML_NODE_CIRC_QUAL 

SEOM oNPAS_EXIT ; No qualifier is present 
$LOOK ,NPAS_EXIT,NMLSPRS_NOREAD ; Get out if not a read. 
SWORD NMASC_PCNO_DLI,NML_CHECK_ QUAL 

SERROR NML$_STS_IDE, ,NMLSPRSIDERR,,,NMASC_ENT_NOD ; Illegal node name 


FIELDS NML_CHECK_QUAL 

SEOM NMC_FOR_ERR 

SMATCH 1,NPAS_ERIT,NMLSPRSIDLEQ : KNOWN circuits is the 

Py efault. 

SNULL ,NML_CIRC_QUAL,.NMLSM_PRS QUALIFIER, - : Flag qualifier 
NALSGL_PRS_FLGS : present. 

FIELDS NML_CIRC_QUAL ; Parse circuit qualifier 

SIMAGE 16,RPAS EXIT, NMLSPRSIDN,,,CPT$SGK_PCNO_DLI 

SERROR NMLS_STS_IDE..NMLSPRSIDERR,, ,.NMASC_ENT_CIR; Illegal circuit name 


: Parse a Line entity 


FIELDS NML_LIN_ENT 3: Line-id entit 

$EOM NMC_FOR_ ERR ; Message format error 
SMATCH {,NMC_LIRE,NMLSPRSIDLEQ ; 1 byte if zero or negative 

SIMAGE 16,NMC_LINE ,NMLSPRSDEVICE on bytes (Line name) 

SERROR NMLS_STS_IDE, NMLSPRSIDERR,, .NMASC_ENT_LIN ; Illegal Line-id 


FIELDS NAL W ; Set internal NAL entity type 
SNULL ,NPAS_EXIT, .NMLSC_LINE,NMLSGL_NML_ENTITY 


=D OOO NAME WANN O OO NAME WN SO OOO NA NEW CO OD NAU EWN OOO NOUS WOO 


; Parse a logging entity 


: FIELDS NML_LOG ENT ; ogging entity 
SMATCH 1,NAL_LOG_SIN,NMLSPRSID, - 3 yte, always. 
74 NALSC"LOGGING NMLSGL_NML_ENTITY ; Set internal NML entity type. 


SNA AAA AA AAA OMNI BERR RRR SE 


SOoOOOOoOoOOoOOSoSooo 
SoOooooooooooooo 
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Entity parsing =-SEP=-1984 NML.SRCINMLINISTA.MAR; 1 (5) 
g SNULL ,NML_FOR_ERR ; Message format error 
7 FIELDS - tan 3; If READ then sink node 
7 $SNULL wok Ofet NWMLSPRSLOGSIN 3; must be specified 
7 EOM EXIT ,NMLSPRSEXE SNK 3; Null is executor node 
SWORD =PC OG_NID 


FIELDS Los 
SSBEXP NAC L 08 


oNMLSM_PRS_SNKNOD, eNMLSGL_ PRS_FLGS 
SERROR NMLS_S 


it 

EXIT x 
LOLSIN,NML_L 
NID 
“NIDSUB,NML_C 
1D 


EOM 
5 EO KMLSPRS SERA MASc. ENT_NOD ; Illegal node id 


? 
0 
aa 
0 5 
000 § FIELDS NML_LOG NIDSUB 
SBYTE NMASC WERT _KNO,NPAS_EXIT, ,NMLSM_PRS_KNOSNK,NMLSGL_PRS_FLGS ; Known si 
B08 8 $LOOK 0,NML~LOG-NODNU 
00 9 SIMAGE 6,NPAS_EXIT,NMLSPRSSNKNNA 
4 3 SNULL »NML_F FOR_ ERR ; Message format error 
000 35 FIELDS NML_LOG en UM 
B308 3 SMATCH 3,NPAS_EXIT,NMLSPRSSNKNAD 
0000 95 ; 
4 38 : Parse a circuit entity 
0000 398 ° FIELDS NML_CIRCUIT_ENT : Circuit-id entity 
0000 99 $SEOM OR_ER ; Message format error 
0000 400 SMATCH 1,NMC_ CIRCUIT, NML PRS IDLEG 1 byte if zero or negative 
0000 401 RCUIT NAL S6L _NML ENTITY 
0000 40¢ SIMAGE 16,NML_ ciRcuIT NML SPRSDE sen n bytes (circuit name) 
0000 40 L$ RCUI Reece * NML 
4 eRe SERROR NMLS_STS MIDE TNMLSPRSIDERR CCNMASC™ ENT_CIR; Illegal circuit-id 
0000 406 FIELDS NML_CIRCUIT : Set internal NML entity type 
0000 407 $SEOM »NPAS_EXIT 3; No Adjacency qualifier - exit 
0000 408 SWORD NMASC~ _PCCI_ADJ,NML_CIRC _ADJACENCY 
44 ret SNULL ,NPAS_EXIT™ ; Check for scher parameters 
0000 411 : ; 
441 216 cree NAL ores i eee 
$00 414 SBYTE amast. ONT KNO,NPAS$_EXIT : Known adjacencies is default. 
09 415 SNULL .NML_PRS ADJ,.NMLSM_PRS_QUALIFIER, - ; Set qualifier flag 
0 416 Lng S_FLGS~ 
00: 41 FIELDS NML PRS ie 
B98 213 $LOOK 9 NAL_A ; 3 bytes if node number 
0 419 SIMAGE 16, abe “EI ORNL SPRSIDN,.. - +: Save adjacent node name. 
09 ? 1 SERROR NMLS_STS Tee leeisenn, ...wuee tut 100; Illegal Adjacency id 
0 4 i FIELDS NAL =AdJ NOD “re 3; Adjacent node-id is a number 
424 $SSBEXP NML-A } “EXE NPAS EXIT 
425 SMATCH 3,NPAS$_EXI F NMLSPRG. _NODE_NUM,,, - ; Save adjacent node number. 
436 cPTseK -PCCIZADJ | 
4 3 FIELDS NML_ADJ_EXE ; Zero address is executor node 
4 SMATCH 1 
p 430 FIELOS 
431 SWORD 0,NML_NOD_ERR 


ea SISTA NML ap tne I open, state table Sis 19-8 3 ox lane 99: $8: :49 VAX/VMS ply 


o V04 400 P 1 
Entity parsin 5:29 CNML.SRC INISTA a g 


TN »MAR;1 (5) 


Ot aT ee 
SERR OR NMLS_STS TIDE. -NMLSPRSIDERR,. .NMASC. ENT_NOD; Illegal Adjacency id 
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yo%~000 Entity parsing ° met 39:38:39 ENML  SRCINMLINISTA.MARS 1 . (6) 
436 ; ; 
iy ; Parse a module entity ; 
4 : FIELDS NML_MODULE ENT ; Module entity : 
0 440 SEOM NMC_FOR_ERR : Mes ssage format e ; 
09 44} SMATCH 1,NMC_FUR_ERR,NMLSPRSIDLEQ ; Don't at low KNOWN or ACTIVE : 
0990 128 SIMAGE 10,NML_MOD_X25_ACCESS ety spobuee. ‘mogul X35 ACCESS : 
000 444 SIMAGE 12,NML_MOD me Ty L NAL SPR Th ‘NAL PROTOCOL ° 
000 445 SIMAGE 10,NML-MOD-X NAL SPRS DULE’ NAL SC X25. SERV : 
00 1¢$ SIMAGE 10,NML_MOD_X 3- hs Aten $c_T . 
44 4G SIMAGE 10,NML_ mop x Ni SP PRE ULE NnLSE X29 sey ‘ 
0 448 S IMAGE : NAL Ni 7 Sk RVER NML PRS Anopb C_RI_CONF ° 
990 449 SERROR NMLS_ STs OTOL TNMLSPRSIDERR TNMASE. ent _MOD; “TlTegal- soduhentd : 
00 451 ; : 
0000 128 : Parse X25 Access module - Network qualifier is manadatory ; 
0000 454 FIELDS NML a at ACCESS ‘ 
0000 455 SEOM NMC _I EST No network ID in command ; 
0000 456 SWORD Amast. PCRAT NET,NML_X25_ACCESS _net : 
i a2 SNULL ,NML_INV_DEST : 
0000 459 FIELDS NML_X25 access NET : Check destination ID : 
0000 460 SEOM »NMC_FOR_E : No destination ID, message ; 
0000 461 3 format error : 
0000 46 SNULL ,NML_MOD_ENT,,NMLSC_X25_ACCESS, = ; Set internal NML entity type. : 
0000 46 AMLSGL_NML_ENTITY ; 
0000 464 3 
0000 65 FIELDS NML_INV_D Illegal destination id : 
0000 466 SERROR NMLS_ sts FOE, WNMLSPRSIDERR,, .NMASC. ENT_MOD ‘ 
0000 467 3 
0000 468 ; 3 
0000 $$? ; Parse for X25 Protocol module sub entity - DTE or group : 
000 471 FIELDS NML a peovecee é 
0000 Ae: SEOM NMC_P 3 No sub entity. Use network. 3 
0000 47 SWORD NMAS $c’ PPCKP OTE. NML_PROTCL_DTE ; OTE é 
0000 474 SWORD NMASC”PCXP”GRP,NML ~PROTCL— _GRP 3; Group : 
9000 475 SNULL =, NML_PROTCC_NET ; Assume network ; 
6000 477 FIELDS _ PROTCL_NET ; Network sub entity. 3 
000 478 $NULL NPAS_EXITUNMLSPRS_ACTIVE_NET, -; Set internal NML entity type. : 
4 479 NMLS$C 3 and active network 3 
0 480 NALSGC NAL “ENTITY : entity. ; 
44 481 
4 4 ¢ 
000 4 FIELDS NML_PROTCL_DTE ; pve sub entity. 
0000 484 $EOM »NMC_FOR_ERR : No DTE ID, message format error 
000 485 SNULL CNML “MOD-ENT, .NMLSC_PROT_DTE, - ; Set internal NML entity type. 
0 4 6 AMLSGL_NML_ENTITY 
3 
4 § FIELDS NML Peore, GRP ; Check Group ID 
rh SEOM »NMC_FOR_ERR 3 No Gest ination 1S aD. message 
: orma 
492 SSBEXP NML_MOD_ENT,NML_CHK_DTE,, - ; Set internal NAL entity type. 
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NMLSC_PROT_GRP, NMLSGL_NML_ENTITY 

SERROR NMLS_STS_IDE,;NMLSPRS I5ERR,, ,NMASC— ENT_MOD; Illegal group-id 

FIELDS oe gue DTE 

SEOM ERIT : Ko DTE qualifier = exit 

SWORD anasen BtxP GDT, i, GRP_DTE_ID Go check Group DTE id. 

8 SERRC? NMLS_ STS BE, .NML PRSIDERR7, ,NMASC. ENT_MOD; Illegal group-id 


FIELDS NAL GRP DT DIE. ID 

SMATCH {" NPXS eine NMLSPRSQUALLEQ Known DTEs is default. 

SNULL ,NML_DTE_QUAL, ,NMLSM_PRS QUALIFIER. ; Flag qualifier 
AMLSGL_PRS_ FLGS : present. 


SFUSUSISISISION E~ £~ £~ 


ODOOCGOOCOCOCOCOCOOUOOOOwODO 


OOONAUE WIN @ OOD NAME WN @ OOO NOUS WN $$ OOONAU EWR OO OONAUE WW OOONOULW 


FIELDS NML_DTE_QUAL 
SIMAGE 16,NPAS_EXIT,NMLSPRSIDN, be a pid Saye Group-DTE ID. 
SERROR NML$_STS _IDE, NMLSPRSIDERR.  NRASC ENT MOD; Illegal DTE id 


Parse X25 Server module 
FIELDS at MOD_X25_SERVER 
SEOM 


0 
0 
SH 
cis 
0000 = 51 
0000 51 
0000 51 
0000 51 
0000 51 
0000 = $1 
0000 51 
0000 51 NPAS_ERIT, NML$C_X25_S - _; No destination sub entity 
0000 38651 NALS cn “ENTITY 
0000 51 SWORD NMASC Cas _DST.NML Keo if DEST; Sub entity is destination. 
0000 25 SNULL ,NPAS_EXIT>,NMLSC_X 3; No destination sub entity. 
44 25 Carsec’ NAL “ENTITY; Parameters follow. 
0000 52 FIELDS NML Keo, SERV_DEST 3 Sub entity is Destination. 
0000 52 $EOM »NMC_FOR_ERR™ ; No destination ID, message 
0000 5 format error 
0000 5 SNULL ,NML_MOD “ent »NML$C_X25_SERV wrest, -; Set internal NML entity 
0000 5 AMLSGL_NML_ENTITY type. 
0000 5 
0000 5 ; 
464 : : Parse X25 Trace module 
itd 53 FIELDS NML_MOD X25_TRACE 
444 23 $EOM oNPAS_ERIT, ;NMLSC oe — 3 No tracepoint sub entity 
000 33 SWORD NMASC_PCXT_TPT,NML TRACEPOINT ; Sub entity is tracepoint. 
000 SNULL ,NPA$_ EXIT>,NML$C_TRACE, 3; No tracepoint sub entity. 
one NAL LSGL_NML_ENTITY; Parameters follow. 
$009 53 FIELDS NML teactroim : Sub entity is tracepoint 
2000 ? $SEOM oNMC_F : No tragepoint ID, message 
: orm rror 
00 4 SNULL oNML_TPT “ent ‘a TRACEPNT, ; Set bazernat NAL entity 
0 54 AMLSGL_NML_ENTITY type. 
. 4 FIELDS NML_TPT_ENT S Pinteb processing module entity. 
4 SMATCH | ,NEAS gent nm spRs 0.0 ; 1b ce \t zero or negative. 
900 4 S$ IMAGE 4M EXIf ,NMLSPRSIDN 16 of 
000 ? SERROR unc. Pate eTDE, WNAL SPRSIDERR,, .NMASC. ENT "ROD: Se module id 
0 4 


sss ee 
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0 : 
gi Parse X29 Server module 
FIELDS NML_MOD_ 429_SERVER 
8 ¢ SEOM »NPRS_ ERT TNML SC ts 9 Sint EN enti? No destination sub entity 
$6 56 SWORD NMASC_PCXS_DST,NML_X sean Av_p DEST; Sub entity is destination. 
000 5 SNULL ,NPAS~ EXIT? NMLSC Cargerse ; No destination sub entity. 
44 28 6C NAL “ENTITY; Parameters follow. 
8 0 60 FIELDS NML X20 seny DEST ; Sub entity is Destination. 
8 } 9] SEOM »NMC_FOR_ERR™ ; No destination ID 1D. message 
ormat err 
4 8g SNULL ,NML_MOD ‘ont. »NMLSC_X29_SERV_ vest, -; Set internal ONML entity 
000 64 AMLS$GL_NML_ENTITY type. 
000 65 
000 28 
000 6 : 
4 rt: ; Parse NI configurator module 
0000 570 FIELDS a MOD_NI_CONFIG 
0000 571 $EOM NPAS_ERIT? gee NI_CONFIG, = ; No circuit qualifier - exit 
a4 276 N CLEATITY 
000 7 SWORD NMASC_PCCN CIR: Pa: “NI_CONF I 
0000 574 CONFIG ONMLSGL. Nii “ENTITY 
0000 575 $NULL ,NPAS_ exit. NAL St NI_CONFIG, = ; Check for other parameters 
9090 376 MLSGL UNNI. ENTITY : later 
0000 578 FIELDS NML_NI Set CIRC 
0000 579 $SEOM oNMC_FOR_ 
0000 580 S$NEXT 
Boer 581 
94C 288 
094€ 4858 FIELDS NML_MOD ; Finish processing module entity. 
B08 584 SMATCH 1, WeAS alt NMLSPRSIDLEQ i 1b any oie or negative. 
0000 585 $ IMAGE 16% X1f ,NMLSPRSIDN 16 
0000 586 SERROR NRCS. Page EIDE NAL SPRSIDERR, , .NMASC_ENT” MOD: y 1 module id 
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SrSEp= 1986 Oe: 
85 Parse an area entity 


‘ FIELDS NML_AREA_ENT 
$E NAC FOR-ERR 


AREA_NUM 
SBYTE NANge “ENT RNO. NPAS_EXIT,N 
L$C_AREA;NML sé 
NMASC_ENT_ACT{NPAS.. “EXIT 
L$C AREA;NM NMLSGL 
SERROR NMLS_STS MIDE, TNMLSPRSIDE 


FIELDS NML_AREA 
SMATCK 2,NPAS eryiT. NMLSPRSID, 


NMLSCAR 
$NULL ,NML_FOR_ERR 


bad 
- 
oo 
oz 
n 
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; Area ent 
5 yeseege 


MLSPR astiu nce 
L_NML eaTiey 
NAL SPRSIDLEQ, - 
L_NML_ENTITY 
RR,, ,NMASC_ENT_ARE; 


Sav 
EA, NMLSGL NAL “eur t 
: Must be 


ity 
terest error 


rea number in next byte. 


Illegal area ID 


byte area number 
at least 2 bytes 
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00 $05 3 

88 ? § ; Parse an object entity (VMS-specific) 

00 £08 FIELDS NML_OBJ_ENT ; Object entity 

88 609 $SEOM NMC_FOR_ERR i Message format error 

3 0 610 SMATCR {,NMC_OBJECT,NMLSPRSIDLEQ ; 1 byte if zero or negative 
8 0 611 SIMAGE 12,NMC_OBJECT,NMLSPRSIDN : on py tes (name) 

8 8 o16 SERROR NML$_STS_IDE, ,NMLSPRSIDERR,,,NMASC_SE T_OBJ ; Illegal object name 
$009 614 FIELDS NML_OBJECT ; Set internal NML entity type 
9000 613 $NULL ,NPAS_EXIT,,NMLSC_OBJECT,NMLSGL_NML_ENTITY 
2909 ei P Link i ‘VMS ific) 

; Parse a Link entity ‘VMS-specific 
0000 19 . 2 
000 as FIELDS NML_LNK_ENT ; Link entity 
0000 621 SEOM »NMC_FOR_ERR ; Message format error 
BE08 ° ; SNULL ,NML_LINR,,NMLSC_LINKS,NMLSGL_NML_ENTIT 
0000 624 FIELDS NML_LINK 
0000 625 $LOOK 0,NAL_LNK_NUM ; If zero, it's a Link number. 
9009 6 : SMATCH 1,NML~LNK-~NOD,NMLSPRSIDLEQ : 1 byte if negative 
0000 $56 FIELDS NML_LNK_NUM ; Link address 
0000 +4 SMATCH 3,NPL_LAK_NOD,N*L SPRSID ; Must be byte of 0 and 2 bytes 
0000 630 : of Link number. 
9000 631 SERROR NMLS$_STS_IDE,,NMLSPRSIDERR,,,NMASC_SENT_LNK ; Illegal Link address 
0000 $35 FIELDS NML_LNK_NOD 
0000 634 SEOM =, NPAS_ERIT 
0000 635 SWORD NMASC_PCLK_NID,NML_LNK_NID,, = ; blog node qualifier 
0000 636 NMCSM_PRS_QUALIFIER,NALSGL_PRS_FLGS 
0000 637 $SNULL NML_FOR_ERR 
0000 638 
0000 639 FIELDS NML_LNK_NID 
0000 640 SEOM »NMC_FOR_ERR 
0000 641 SSBEXP NML_RODETD_SUB.NML_CHKEOM : 
4 ot¢ SERROR NMLS_STS_IDE,,NMLSPRSIDERR,,,NMASC_ENT_NOD ; Illegal node id 
0000 644 
0000 645 FIELDS NML_NODEID SUB 
44 646 $LOOK 0,NAL_NODNOM 
000 647 SIMAGE 6,NPAS_EXIT,NMLSPRSIDN,,, - ; Qualifier is a node name. 
9000 648 CPTS$GK_PCLK_NID 
B38 650 FIELDS NML_NODNUM 

0 651 SMATCH 35,NPAS_EXIT,NMLSPRS_NODE _NUM,,, - ; Qualifier is a node address. 
099 63¢ CPTSGK_PCLK_PNS 
0 65 

000 654 FIELDS 
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Common expressions EP-1984 NML.SRCINMLINISTA.MAR; 1 ) 
63 -SBTTL Common expressions 
e28 3 Check the option byte for illegal bits and save it 
6 660 ° FIELDS NML_CHKOPT_SUB : Check for valid option 
0 661 SEOM »NMC_FOR ; Message format error 
$8 066 $LOOK »NPAS _EXTT,NMLSPRSOPT : 
009 O02 SNULL > NML_FUN_ERR ; Unrecognized option 
909 665 ; No more bytes allowed in message 
6900 $69 F FIELDS NML_CHKEOM : Check for end of message 
668 SEOM »NPAS_EXIT 3; If end then success 
0000 96? SNULL ,NML_FOR_ERR ; Message format error 
a4 670 ; 
000 671 ; Error exits 
0000 o7¢ : 
0000 67 FIELDS NML_FOR_ERR : Ressege format error 
BaR8 ore SERROR NMLS_STS_INV,,NMLSPRSERR1,,,.NMASC_STS_INV 
0000 o78 FIELDS NML_FUN_ERR : itLegal function or option 
900 677 SERROR NMLS_STS_FUN, ,NMLSPRSERR1,,,NMASC_STS_FUN 
0000 679 FIELDS WNML_SYS_ERR : Yorecogntzed system-specific 
9000 680 SERROR NMLS_STS_SYS,,NMLSPRSERR1,,,NMASC_STS_SY 
ia 68 FIELDS ; End of Phase III tables 
000 683; 
0000 684 ; End of parse tables 
a4 685 ; 
000 686 .END 
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CPTSGK_PCCI_ADJ 
CPTSGK-PCCI “AUS 
CPTSGK-PCLK-NID 
CPTSGK~PCLK-PNS 
CPT$SGK~PCNO-DLI 
CPTSGK_PCXP_GDT 


NMASV~OPT~ INF 
NML$C~ADJACENT_NODE 
NMLSC~AREA 
NMLSC~CIRCUIT 

NML $C "EXECUTOR 
NMLSC~LINE 
NMLSC"LINKS 
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Psect synopsis 5:29 (CNML.SRCINMLINISTA.MAR;1 ) 
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! Psect synopsis ! 


te ee wow mwmaacanmaaa ¢ 


PSECT name Allocation PSECT No. Attributes 
» 8 « 0000 $08 ( ) 00 ( 0.) NOPIC USR CON ABS ~ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
. BLANK . 000 ( -) QO1¢ +1.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SABSS 0000000 < ) be ( ¢-3 NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
NPASSTATE 00000B84 ( 2948.) ( -) NOPIC USR CON’ REL LCL NOSHR NOEXE RD NOWRT NOVEC BYTE 
pre nmoorewone Swe owe oem mice 
! Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 3 00:00:00.12 68:80:00.8 
younens processing 1 00:00:00.91 0:00:05. 
635 00:00:41.54 0:01:28.34 
Synbol table sort 9 a 0:00:02.7 
s 2 14 00:00:07.50 0:00:16.9 
ae, table output 24 b's Be 88:85:06.4 
Psect synopsis output 2 00:00:00. 0:00:00.1 
Cross-reference output 9 a Sa BS 00:00:00.0 
Assembler run totals 97 00:00:51.9 00:01:54.5 


The working set Limit was 1950 pages. 

197884 bytes (387 pages) of virtual memory were used to butter the intermediate code. 

There were 70 pages of symbol table space allocated to hold 1130 non-local and 0 iocal symbols. 
source lines were read in Pass 1, producing 34 object records in Pass 2. 

35 pages of virtual memory were used to define 32 macros. 
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Macro Library name Macros defined 
_8255$DUA28: Srnt 0 JUN 1eRy MLB; 1 1 
“$255$S0UA28: oho 1 0 
“$255SDUA ues hen B.MLB; 1 1 
“$255$DUA28 SYSLIB3STARLET: MLB;2 

TOTALS ‘all libraries) 2 


1357 GETS were required to define 22 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LISS:NMLINISTA/OBJ=OBJ$:NMLINISTA MSRC$:NMLINISTA/UPDATE=(ENHS:NMLINISTA) +LIB$:NMLLIB/LIB+EXECMLS$/L1IB+SHRLIBS:NMALIBRY/LIB 
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